home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs58.d81
/
fontvf.sda
/
FVP
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
663b
|
31 lines
10 REM *******************************
20 REM *** ***
30 REM *** FONTVIEW PATCH ***
40 REM *** ***
50 REM *** BY JOE BUCKLEY ***
60 REM *** ***
70 REM *******************************
80 :
100 DIM Z(256):DR=8
110 OPEN 15,DR,15:OPEN 2,DR,2,"#"
120 TR=18:SE=1:GOSUB 1000:REM 1581 USE 40,3
130 TR=Z(3):SE=Z(4):GOSUB 1000
140 FOR T=1 TO 2
150 TR=Z(0):SE=Z(1):GOSUB 1000
160 NEXT
170 Z(189)=255:Z(190)=22
180 GOSUB 2000
190 CLOSE 2:CLOSE 15:END
1000 PRINT#15,"U1"2;0;TR;SE
1010 FOR X=0 TO 255
1020 GET#2,A$:A$=A$+CHR$(0)
1030 Z(X)=ASC(A$)
1040 NEXT
1050 RETURN
2000 PRINT#15,"B-P:"2;0
2010 FOR X=0 TO 255
2020 PRINT#2,CHR$(Z(X));
2030 NEXT
2040 PRINT#15,"U2"2;0;TR;SE
2050 RETURN